Amiga Format CD 30/Amiga Format AFCD30 (Sep 1998, Issue 114).iso/-seriously_amiga-/emulation/wzonka-lad/wzonka-lad_install

Text File | 1998-06-18 | 7KB | 375 lines

; $VER: Wzonka-Lad Installer Script 0.99.9 (19-May-98)
; Installer made by Lennart Johannesson
; Modified by Ville Helin
; For comments, bugs (yes, I know there's still a lot of them)
; suggestions etc. write to: [e-mail]


;Ask where to place the Wzonka-Lad directory

(message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 0.99.9\n on your Amiga\n\n (c) Ville Helin 1996-1998\[e-mail]\n\n")

(welcome)

(complete 0)

(set @default-dest
    (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
    (help @askdir-help)
    (default "Ram:")
    (newpath)
    )
)

;Create Wzonka-Lad directory

(complete 7)

(set target
    (tackon @default-dest (cat "Wzonka-Lad")))

(makedir target
     (prompt "Creating directory:\n\""target"\"")
    (help @makedir-help)
)

(copyfiles
    (dest @default-dest)
    (source "icons/install/Wzonka-Lad.info")
    (files))

(set @default-dest (target))

;Install the executables

(complete 14)

(copyfiles
    (prompt "Where would you like me to put the executables?")
    (help @askoptions-help)
    (source "binaries/")
    (dest @default-dest)
    (confirm)
    (files)
    (infos)
    (choices "Wzonka-Lad FULL" "Wzonka-Lad FAST" "Wzonka-Lad WARP" "Palette Editor")
)

(set @default-dest (target))

;Install the documents

(complete 21)

(copyfiles
    (prompt "Would you like to install the documents?")
    (help @copyfiles-help)
    (source "Wzonka-Lad Guide")
    (dest @default-dest)
    (confirm)
    (files)
    (infos)
)

(copyfiles
    (dest @default-dest)
    (source "icons/install/Wzonka-Lad Guide.info")
    (files)
)

;Install controlpad.library

(complete 35)

(set @default-dest "LIBS:")

(if (exists "LIBS:controlpad.library" (noreq))
    (if (< (/ (getversion "LIBS:controlpad.library") 65536) (/ (getversion "libs/controlpad.library") 65536))
        (copylib
            (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
            (help @copylib-help)
            (source "libs/controlpad.library")
            (dest @default-dest)
            (confirm)
        )
    ) ; else
        (copylib
            (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
            (help @copylib-help)
            (source "libs/controlpad.library")
            (dest @default-dest)
            (confirm)
    )
)

;Install the fonts

(complete 42)

(set @default-dest "FONTS:")

(copyfiles
    (prompt "And the fonts...\nWhere do I put them?")
    (help @copyfiles-help)
    (source "fonts/")
    (dest @default-dest)
    (all)
    (confirm)
)

;Install the sample cartridge(s)

(complete 49)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "cartridges")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the sample cartridge(s) to:\n")
    (help @copyfiles-help)
    (source "cartridges")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the sample battery ram(s)

(complete 49)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where would you like to store your battery ram files?\n(A drawer called \"battery_rams\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "battery_rams")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the sample battery ram file(s) to:\n")
    (help @copyfiles-help)
    (source "battery_rams")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the sample prefs

(complete 56)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "prefs")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the sample prefs-file to:\n")
    (help @copyfiles-help)
    (source "prefs")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the sample vgb colour files

(complete 63)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "vgb_colour_schemes")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the VGB (tm) example colour files to:\n")
    (help @copyfiles-help)
    (source "vgb_colour_schemes")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the extra Icons

(complete 70)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
        )
    )

(set @default-dest
    (tackon @default-dest (cat "icons")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the extra icons to:\n")
    (help @copyfiles-help)
    (source "icons")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the tools directory

(complete 77)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "tools")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install the extra tools to:\n")
    (help @copyfiles-help)
    (source "tools")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the gbs directory and an example gbs file

(complete 84)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "gbs")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install an gbs example file to:\n")
    (help @copyfiles-help)
    (source "gbs")
    (dest @default-dest)
    (confirm)
    (all)
)

;Install the favourites directory and the favourite list

(complete 91)

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "favourites")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)

(copyfiles
    (prompt "Install an favourite.list example to:\n")
    (help @copyfiles-help)
    (source "favourites")
    (dest @default-dest)
    (confirm)
    (all)
)

;Write out some copyright stuff

(complete 100)

(set @default-dest (target))

(message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1998\[e-mail]\n\n For comments about the installer mail to:\nLennart Johannesson\[e-mail]")